home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / hypercar / fun / vcr20.cpt / VCR 2.0 / card_18986.txt < prev    next >
Encoding:
Text File  |  1990-04-10  |  4.2 KB  |  152 lines
  1. -- card: 18986 from stack: in.0
  2. -- bmap block id: 19842
  3. -- flags: 0000
  4. -- background id: 19442
  5. -- name: x"&fld 1
  6.  
  7.  
  8. -- part 1 (field)
  9. -- low flags: 01
  10. -- high flags: 4007
  11. -- rect: left=22 top=64 right=308 bottom=309
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 4
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: index1
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   global tape
  23.   set lockscreen to true
  24.   put the textHeight of me into th
  25.   put item 2 of the rect of me into y
  26.   get trunc(1+(1+(clickV() - y))/ th + (the scroll of me)/ th)
  27.   set lockscreen to false
  28.   select line it of cd fld index1
  29.   put last word of line it of card field "index1" into tape
  30.   goTape
  31. end mouseUp
  32.  
  33.  
  34. -- part 3 (button)
  35. -- low flags: 00
  36. -- high flags: A000
  37. -- rect: left=330 top=34 right=60 bottom=421
  38. -- title width / last selected line: 0
  39. -- icon id / first selected line: 0 / 0
  40. -- text alignment: 1
  41. -- font id: 0
  42. -- text size: 12
  43. -- style flags: 0
  44. -- line height: 16
  45. -- part name: New Index
  46. ----- HyperTalk script -----
  47. on mouseUp
  48.   set lockText of cd fld "index1" to false
  49.   put "                                        " into blank
  50.   go second cd
  51.   select text of cd field "index1"
  52.   put empty into cd fld index1
  53.   repeat with i = begnum() to the number of cards
  54.     get field "Theme" of card i
  55.     set cursor to busy
  56.     if it is empty then next repeat
  57.     put blank into temp
  58.     put it into char 1 to (number of chars of it) of temp
  59.     get field "Num" of cd i
  60.     put it into char (38 - number of chars of it) to 37 of temp
  61.     if cd fld index1 is empty then put temp into line 1 of cd fld index1
  62.     repeat with j=1 to number of lines of cd fld index1
  63.       if temp < line j of cd fld index1 then
  64.         put temp & return before line j of cd fld index1
  65.         exit repeat
  66.       end if
  67.     end repeat
  68.   end repeat
  69.   go second card
  70.   set lockText of cd fld "index1" to true
  71. end mouseUp
  72.  
  73.  
  74.  
  75. -- part 4 (button)
  76. -- low flags: 00
  77. -- high flags: 2000
  78. -- rect: left=438 top=176 right=206 bottom=473
  79. -- title width / last selected line: 0
  80. -- icon id / first selected line: 20098 / 20098
  81. -- text alignment: 1
  82. -- font id: 0
  83. -- text size: 12
  84. -- style flags: 0
  85. -- line height: 16
  86. -- part name: 
  87. ----- HyperTalk script -----
  88. on mouseUp
  89.   go to stack "Home"
  90. end mouseUp
  91.  
  92.  
  93.  
  94.  
  95. -- part 5 (button)
  96. -- low flags: 00
  97. -- high flags: 2000
  98. -- rect: left=438 top=249 right=275 bottom=468
  99. -- title width / last selected line: 0
  100. -- icon id / first selected line: 1012 / 1012
  101. -- text alignment: 1
  102. -- font id: 0
  103. -- text size: 12
  104. -- style flags: 0
  105. -- line height: 16
  106. -- part name: Return
  107. ----- HyperTalk script -----
  108. on mouseUp
  109.   visual effect iris close
  110.   go first card
  111. end mouseUp
  112.  
  113.  
  114.  
  115. -- part contents for card part 1
  116. ----- text -----
  117. Alf Episodes #1                    65   
  118. Alf Episodes #2                    66   
  119. Alf Episodes #3                    41   
  120. Apollo 11                          67   
  121. Astronomy                          59   
  122. Aviation                           46   
  123. Bicycle Races (1984 Olympics)      L7   
  124. Bicycle Races (1984;5;6;8)         30   
  125. Bicycle Races (1986)               22   
  126. Bicycle Races (1986;7)             62   
  127. Bicycle Races (1987)               31   
  128. Bicycle Races (1988)               27   
  129. Bicycle Races (1989)               29   
  130. Bruce Lee                          11   
  131. Cartoons                           57   
  132. Christmas Shows                     5   
  133. Clint Eastwood                      1   
  134. College Bowl Highlights            L3   
  135. Georgia Tech Sports                32   
  136. Georgia Tech Sports                63   
  137. Godfather Part I                    2   
  138. Harrison Ford!                     33   
  139. Home Movies                        25   
  140. Home Movies                        26   
  141. Home Movies                        R2   
  142. Monty Python                       10   
  143. Music Videos                       15   
  144. Music Videos/Concerts              23   
  145. Rebecca's                          R1   
  146. Rebecca's                          R4   
  147. Rebecca's                          R5   
  148. Rebecca's                          R6   
  149. Sci-fi Pilot                       54   
  150. Science Fiction                     6   
  151. Science Fiction                    20   
  152. Science Fiction                    L2